EEE 


D 8 
Sy 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
Ll 
LLL IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTTTT «LLL Ll 
LLL HII BBBBBBBBBBBB RRRRRRRRRRRR TTTTTTTTTTTTITTT «LLL + 
LLL LITT BBB RRRRRRRRRRRR TTTTTTTTTITITITT «LLL L 
LLL 111 BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BB BBB RRR RRR TTT LLL LI 
LLL 11] BBB BBB RRR RRR TTT LLL | Ll 
LLL II] BBB BBB RRR RRR TTT LLL | Ll 
LLL Il] BBB RRR RRR TTT LLL Ll 
LLL Il] BBB BBB RRR RRR TTT LLL Ll 
LLL III B RRRRRRRRRRRR TTT LLL Ll 
LLL Ill BBBBBBBBBBBB RRRRRRRRRRRR TTT LLL LI 
LLL Ill 8 RRRRRRRRRRRR TTT LLL ul 
LLL III BRA BBB RRR RRR TTT LLL 
LLL II] BBB RRR RRR TTT LLL Ll 
LLL II] BER BBB RRR RRR TTT LLL Ll 
LLL II] BRB BBB RRR RRR TTT LLL Ll 
LLL III ERB BBB RRR RRR TTT LLL Ll 
LLL Ill BSB BB RRR RRR TTT LLL Ll 
LLELLLLLLLLLLLLL IIIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL Ll 
LLELLLLLLLLLLLLL TITIII111 BBBBBBBBBBBB RRR RRR TTT LI 
LLELLLLLLLLLLLLL LIIIIIII BBBBBBBBBBBB RRR RRR TTT LELLLLLLLLLLLLL 


| 
LLLLLLLLLLLLLLL | 
| 
| 
| 


*eF LLE®*1]D**OTSMAC 


TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 
TT 


MmMMmMmmmmmmmmmmcn 
MMMM MmMmMmMmMmMMmMMncn 


AAAAAA 
AAAAAA 
AB aA 
AA AA 
AA QA 
ah AA 
AA AA 
AA AA 
AAAAAAAAAA 
AAAAAAAAAA 
AA AR 
AA AA 
AA AA 
Aa Aa 


AOOAOAAOOOONO 
AOAQOOOOOOO 


H 
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i This file ne defines OTS macros. 

i Edit: SBL 1039 

i 

i eeeeeeeeeeeeeeee eee eeeeeeeeeeeeeeeeeeeeeeedeneeeeneeeeerenteneerereereeerees 
'® ® 
‘* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
** ALL RIGHTS RESERVED. * 
Hid * 
‘* THIS -_ IS gio UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE 0 THER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
't OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:* TRANSFERRED. * 
‘® ® 
\® oa se IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
-* CORPORATION. + 
Hal * 
!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
» SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; 
sees ieiean imei iendina i esentl bieseitaiastaamainia citaeeenieaanaie eee 


! Author: T. Hastings 


1-25 = REQUIRE LPSECT. TNH 19-Dec-77 
1-26 = Remove SET_CB_BASE(). JMT 12-A a r-78 
1-27 = Use RTLIN: Togical name in REQUIRE. TNH 28-Apr-78 
1-¢8 - Define ADR_VECTOR. TNH 7-June-78 
1-30 = Change name to FORMAC.REQ (with tPeeet 3 to Dick Gruen) 
and change name of LPSECT te. we JBS 14-NOV-78 
1-031 = Add a cop right weeree JBS 1 
1-032 - eee SS e name to OTSMAC. REO + y Sosa peCuaRe of ye E 
(Let users of STEMAC. REO also REQUIRE RTLPSECT.) ait 06-DEC-78 
1-033 = Add offsets and Lengths of the dispatch tables. S$ 25- Sone 1979 
1-034 = Make them weak globals so they can be used by “he as 


JBS 26-JUN-197 
1-035 - oes offsets and lengths (moved to ISB). JBS for SBL 
1-036 = Remove BASIC offsets and Lenguhe ineyed to ISB). JBS 12-JUL-1979 
! 1-037 = Remove PRINT statement, for new BLISS compiler. JBS 02-OCT-1979 
1-038 - Add COPY_BYTE_A, COPY_WORD v. “COPY “LONG. A, COPY_QUAD_A 
macros. SBL 18-Dec-1979 
1-039 = Add ONE_OF macro. SBL 18-Dec-1981 


i¢ 

i Macro for writing a character string and then advancing pointer 
i Designed so that it is placed on the left side of a substitution 
statement. Anticpates feature being added to BLISS as a form 


OTSMAC.REQ; 1 


MACRO 


a, 

= ACS TBoIN NTER 
ls POINTER _ADR = 
-1)<0,8> {; 


'¢ 


for CH 


'¢ 


CRO 
RBYTE_A(P) 


= (P = 

RWORD_ A(P) = (P = 

RLONG_. A(P) = (P = 
CALL_VFE(P)= 

T (LOCAL T; T 


'¢ 


+ 
' Macro to ¢ lete 
' Everywhere t 


: for CHSWCHAR_A (DESPA) if looks good. 
i Call: CH_WCHAR_A (CS_POINTER_ADR.ma.r) =... ; 


CH_WCHAR_A (CS_POINTER_ADR) = 


= PhépLus (.CS_POINTER_ADR, 1); 


i Macro for writing a pe ig without advancing the pointer. 
i Desinged so that is 
i antic pores feature 

WCHAR (DSTPV) te ooks good. 


Call: CH_WCHAR (CS_POINTER.ra.v) =... ; 


Aeces on the left of a substitution statement. 
added a BLISS as a form 


ACRO 
CH_WCHAR (CS_POINTER_VAL) = 
(CS_POINTER_VAL)<0,8> 2%; 


Macros for processing the compiled format text byte strings. 


.P+1; -(.P-1)<0, 8>) . 
»P#2; .¢.P=2)<0,16>) &, 


.(.P)<0,32>; P = .P#4; .T+.P) () ) &; 


: Macros for copying values referenced by pointers. 


(D=.D+1; (.D-1)<0,8>=RBYTE_A(S)) % 
(D=.D+2: (-D=2) <0, 16>= =RWORD_A(S)) &, 
(D=.D+4: (.D-4)<0.32>=RLONG~A(S) 
((.D)<0,32>=.(.8)<0,32>; (.B+4)< 


transportable character pointer notion. 


the 
at an address (A) can be speci ties in BLI 
- allow a character pointer with mnemonic P (rather than CP to keep one letter) 
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) 
3 
0, 30>=.(.$+4)<0,32>; D=.D+8; 


S=.S+8) %; 
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| 
| xBLIss32 ¢ 
MACRO 


PLIL FL FL FL IL IL FL 


eewn © 8&8 © & & & 


~ 
ee 


a 

m 

oO 

vw 
nnnnnnun 


‘+ 
Clear a vector of BLISS values (transportable) 


ACRO 
FILL VAL (VALU 


E, LENGTH, ADDRESS) = 
ZBLISS32 (CHSFI 


LL (VALUE, (LENGTH) * XUPVAL, ADDRESS)) 2%; 


‘+ 
! Allocate string descriptor : 

! Rest of descriptor symbols are defined in SRMDEF.MDL 
' But currently no way in MDL to define a macro 


To declare and allocate a descriptor: 


LOCAL 
name: DSCSDESCRIPTOR; 


MACRO 
DSCSDESCRIPTOR = BLOCK(8, BYTE) 2%; ! MDL requires BYTE 


K 
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THE “ONEOF"™ MACRO 


Macros to determine if the value of an expression is one of a se 
' specified small-integer values. These macros can be used only i 
! following conditions are met: 


f the 
The value to be tested is in the range 0 through 127. 
The values to be tested for are all in the range 0 through 31. 
Example: 
IF ONE_OF (.X, 1,3,5) ... 


The code generated is much more efficient than a series of comparisons 
' (provided that the values being tested are all compile-time constants). 


Ry ee 


BMSK_CAJ= 
xYF NO 
6A 


1 
M1 


T £CTC 
GTRU 
31 = ( 


C 
F ECA) ZTHEN ZERRORMACRO('ONE_OF argument not a CTCE") %FI 
. 23) SIMEN XERRORMACRO('ONE_OF constant greater than 31') %FI 


BMSK_CJ= 
TO OR XBMSK_(ZREMAINING)) %, 


XCMP_CA,B,CJ= 
ZIF ZLENGTH EQL 3 
THEN 

(CA EQLU B) OR (A EQLU C)) 
RELSE 

(A EQLU B) 
Fl 2%, 


A)= 
ZLENGTH LEQ 1 &THEN ZERRORMACRO('Too few arguments to ONE_OF‘) %F1 
ZLENGTH LEQ 3 


THEN 
oe 
“Ft + ( BMSK_(ZREMAINING) ) * (A)) LSS 0) 


ONE _OF ( 
IF 
XIF 


End of file OTSMAC.REQ 
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